home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
pcmagcom.arc
/
BATFILE.DAT
< prev
next >
Wrap
Text File
|
1988-01-19
|
7KB
|
228 lines
Make sure to spit into 4 different files: BLOAD.COM, BSAVE.COM,
CONMEN.DAT and STING.DAT
N BLOAD.COM
A
XOR BH,BH
MOV BL,[80] ;Get argument length.
MOV Byte Ptr [BX+81],0 ;Convert argument to ASCIIZ.
MOV DX,82
MOV AX,3D00 ;Open file for reading.
INT 21
JB 13E ;Exit if not found.
MOV BX,AX ;Else, filehandle in BX.
MOV AX,40
MOV DS,AX ;BIOS data segment.
MOV AX,B000 ;Monochrome buffer address.
MOV CX,1000 ;4K buffer.
CMP Word Ptr [63],3B4 ;Is it monochrome?
JZ 131 ;If yes, skip around.
ADD AX,800 ;Else, CGA buffer address.
ADD CX,3000 ;16K buffer.
MOV DS,AX ;Point to segment.
MOV DX,0 ;Point to Offset.
MOV AH,3F ;Read in file image.
INT 21
MOV AH,3E ;Close file.
INT 21
INT 20 ;Terminate.
RCX
40
W
Q
- - - - - - - - - - - - -- - - - - - - - - - - - - - - -
N BSAVE.COM
A
XOR BH,BH
MOV BL,[80] ;Get argument length.
MOV Byte Ptr [BX+81],0 ;Convert argument to ASCIIZ.
MOV DX,82
MOV CX,0
MOV AH,3C ;Create a normal file.
INT 21
JB 140 ;Exit if error.
MOV BX,AX ;Else, filehandle in BX.
MOV AX,40
MOV DS,AX ;BIOS data segment.
MOV AX,B000 ;Monochrome buffer address.
MOV CX,1000 ;4K buffer.
CMP Word Ptr [63],3B4 ;Is it monochrome?
JZ 133 ;If yes, skip around.
ADD AX,800 ;Else, CGA buffer address.
ADD CX,3000 ;16K buffer.
MOV DS,AX ;Point to segment.
MOV DX,0 ;Point to offset.
MOV AH,40 ;Write image to file.
INT 21
MOV AH,3E ;Close the file.
INT 21
INT 20 ;Terminate.
RCX
42
W
Q
- - - - - - - - - - - - -- - - - - - - - - - - - - - - -
CONMEN.DAT
X0 S255 C0
: Illustrated by David P. Hitt
BM45,90 M-11,-11 M+4,-8 U3 M+6,-8 M+42,-16 R15 M+21,7 M+10,9 M+6,2 M+4,5
M-1,17 M-8,7 M-4,15 F1D4G1D2G1D7 M-7,12 M-1,10 G1 M-9,3 L8 M-8,-6 M-18,-8
H1 M-4,-12 M-6,-3 M-6,-7 U5 M-7,-1 U5 M-3,-5 M-3,-5 M+12,-10 M+23,-8 M+16,-3
R20 M+18,6 NM+1,11 L11H1L27 M-13,3 M-19,6 NM+7,-7 M-15,12
BM+34,-18 M-12,13 M+15,-4 NM+9,-12 F1 NM+8,-5 NE5 M+11,-4 M-1,4 M+7,-4M-6,9
M+18,-13 M+5,7 M+8,4 D6F1
BM59,106 M+9,8 R1 M-2,-12 M+11,-13
BM59,106 M+7,-4
BM77,100 R2E2R2U1NR14R4D1R11D1
BM83,104 E3R10F2L4G1L3H1U1L1G2L2BE1 P0,0
BM88,108 R6E2
BM108,100 U1E1R1E3R1E1R10F2D3F1D5
BM109,101 R4U3E2R3E1R5L9BG2 P0,0
BM114,99 R1E1R5F2ND1L3G1L3H1L1
BM117,104 F1R1U1R1E1R1
BM109,103 M+1,8 F1D1R1ND2R2F2G1D2L2D1L1D1L2G1L2H1L1U1L3H1G1
BM116,11 8F2R1F1D4L6G1L9G1L9
BM116,125 G4L4G1L4H1
BM118,128 NG5G1D2G1D1G1L7G1L4H1L1BR13BU1 P0,0
BM116,130 D1
BM89,125 U2E2R1U1R1U1E1R1U1
BM81,118 D4F1D1F3D1F4D1F1
BM90,103 P0,0
BM116,100 P0,0
BM75,134 M+9,35 M+6,-7 NM+5,-6 M+8,12 NM-5,7 R1F1R1ND6R2E1R1E1 NM+5,6
M+5,-10 NM+5,4 M-12,-9 NM+9,-6 M-5,2 M-19,-21
BM119,146 M-2,21
BM65,118 NM-14,6D14
BM105,170 P0,0
BM102,152 H11R1F3BF1 P0,0
BM167,65 L5 M-15,-4 H1U2E1 M+20,-6 M+7,-1 M+8,-16 R1 M+14,-19 M+33,3 M+31,19
M+7,8 M-4,14 D11 M+20,4 M-1,4 M-23,5 M-26,-17 L1H1L1H1L2H1L2H1L1H1L2H1L3H1L3
H1L5H1L21 M-15,3 M-2,5
BM183,34 M+23,3 M+23,7 NM-5,4 M+18,6 NM+1,6 M+17,8
BM174,50 R19 M+29,4 NM+2,-6 M+21,8 NM+5,-5 M+22,8
BM167,65 NM+6,6 G1D2 M+5,5 NE1 M-6,14 G1D2F1R1F1R14F1R2F1NL3R1F1L4H1L8H1L1
D2F1R2ND3R7F1R8L3D1L1G1L1G1L8R5D1G1L3G1 M-4,8 G1D2F2R2F1R3F1R5E1R1E1R4
M+25,-11 M+9,-11 R4E1R2E7 M+2,-8 H3L1H1L6G2D3F1R3E2R2F1D5G3L1
BU4L2E1H1BM-2,4H2BD4D1R1
BM261,83 D1G1D1 M-46,58 M-25,-23 H4 BM+4,4 M+24,-13 L2G2L2G1L2D1L1BG1 P0,0
BM236,90 M+8,11 R3
BM229,78 M-9,5 M-10,-3 M+3,-7 M-6,-4 M-4,-12
BM179,75 E1H1L1H3U3E1F1R10F2D2R1L2H1L8D1R4F1R2F2R1L5D1R7F1H1L10U3
BM183,76 D2R5E1BR7R6E1R1
BM180,88 G2L5E1R4 BM+7,1 F6D5 BM+6,-8 D1F2D4 M-5,6 BM+10,-9 U4
BM175,93 P0,0
BM175,106 R3E1R2E1R1
BM175,100 L12G1L9G1D2F1R17U1R5BH1 P0,0
BM247,102 M+12,7 NM+15,6 M-14,53
BM156,112 L4 M-21,-3 NU9D16G1D3 M-9,12 M+7,-2 1G2D2
BM122,137 U4R1U1R1U2
BM194,126 D4NG8D25 M+7,-3 U19BL1 P0,0
BM208,138 G2D1G2D4
BM238,159 M-14,-12 L6 M+5,-6 M+15,17 H3L1BH1 P0,0
BM169,70 P0,0 BR9 P0,0
BM215,69 F3R8H3L8 BL1 P0,0
BM55,70 P2,0 BM55,85 P2,0 BM85,74 P2,0 BM69,77 P2,0
BM195,30 P1,0 BM195,40 P1,0 BM235,50 P1,0 BM255,60 P1,0 BM165,53 P1,0
BM151,101 M-14,-1 U1 M+20,-5 U1 M-9,-3
- - - - - - - - - - - - -- - - - - - - - - - - - - - - -
STING.DAT
:The Entertainer by Scott Joplin
T80 :Prelude
O4MLL64C#MNL16DECO3L8AL16BMSL8G
MLL64C#MNL16DECO2L8AL16BL8MSGMN
O2MLL64C#MNL16DECO1L8AL16BAA-
MSL8GMNP4O3L8GO2L16MLDMND#
MLO2L16EMSL8O3CMLO2L16EO3MSL8C
MNO2L16EO3L4C.L16O4CDD#
ECDL8EL16O3BO4MSL8D
MNCL16O3MLEGO4MSL8CMLO2L16DMND#
MLO2L16EMSL8O3CMLO2L16EO3MSL8C
MLO2L16EO3L4C.L16MLAMNG
F#AO4CL8EL16DCO3A
O4L4D.O1L16MLDMND#
MLO2L16EMSL8O3CMLO2L16EO3MSL8C
MNO2L16EO3L4C.L16O4CDD#
ECDL8EL16O3BO4MSL8D
MNCL16O3MLEGO4MSL8CMNL16CD
ECDL8EL16CDC
ECDL8EL16CDC
ECDL8EL16O3BO4L8MSDMN
L5MLC.MNL16O3EFF#
O3L8MSGMNL16AL8GL16EFF#
MSL8GMNL16AL8GL16MSECO2G
MLL16ABO3CDEDCD
MNO2GMLO3EFGAGEMNF
L8MSGMNL16AL8GL16EFF#
L8MSGMNL16AL8GL16GAA#
BL8BL16L8BL16AF#D
L5MLG.MNL16EFF#
MSL8GMNL16AL8GL16EFF#
L8MSGMNL16AL8GL16MLECO3MNG
MLABO4CDEDCD
MSL8MLCL16EGMSO5CO4MNGF#G
MSO5L8CO4MNL16AO5L8CL16O4AO5CO4A
GO5CEL8GL16ECO4G
MSL8AO5CMNL16EL8D
L4C..L16O4EFF#
MSL8GMNL16AL8GL16EFF#
L8GL16AL8GL16MSECO3G
MNABO4CDEDCD
O3GO4EFGAGEF
MSL8GMNL16AL8GL16EFF#
L8GL16AL8GL16GAA#
BL8BBL16AF#D
MLL64GAGAGAGAGAGAGAGAGL16MNEFF#
L8MSGL16AL8GL16EFF#
L8GL16AL8GL16MSECO3G
MNABO4CDEDCD
MSL8CL16MLEGO5MNCO4GF#G
O5MSL8CO4MNL16AMLO5L8CL16O4AO5
CO4AGO5CEL8GL16ECO4G
L8MSAO5CMNL16EL8DL16MLC
L4CL8C
: Greensleeves
O3A O4L2CL4D E.L8FL4E L2DL4O3B G.L8AL4B O4L2CO3L4A A.L8G#L4A L2BL4G# O3L2EL4A
O4L2CL4D E.L8FL4E L2DL4O3B G.L8AL4B O4L4C.O3L8BL4A L4G#.L8F#L4G# L2A. L2A.
O4L2G. L4G.L8F#L4E L2DO3L4B G.L8AL4B L2O4CO3L4A A.L8G#L4A L2BL4G# L2E.
O4L2G. L4G.L8F#L4E L2DO3L4B G.L8AL4B O4L4C.O3L8BL4A G#.L8F#L4G# L2A. A.
To produce the "Dragnet" theme, enter
PLAY T90 O2 L8E. L16F# L8G E P2 L8E. L16F# L8G E L3 B-
Then try entering PLAY, followed by a single space and the following, «MDUL»continuous«MDNM» string on the command line:
T190O2L4EL8EL4MLG.MNL4G.EL8GL4AL8AL4MLG.MNL2G.L4EL8EL4MLG.MNL4G.EL8GL4AL8AL4MLG.MNL2G.T90L8E.L16F#L8GEP2L8E.L16F#L8GEL3B-